home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / adgetnum.int < prev    next >
Encoding:
Text File  |  1996-04-08  |  1.9 KB  |  75 lines
  1. {$G+,X+,F+,T-}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                  ADGETNUM.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdGetNum;
  13.   {-For getting phone numbers from the user or a phonebook}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages,
  19.   Classes, Graphics, Controls,
  20.   Forms, Dialogs, StdCtrls, Buttons,
  21.   OoMisc, AdMisc, AdPBook, AdSelNum, AdExcept;
  22.  
  23. type
  24.   {.Z+}
  25.   {form for entering or choosing a phone number}
  26.   TGetNumberForm = class(TForm)
  27.     GroupBox1: TGroupBox;
  28.     Label1: TLabel;
  29.     PhoneCombo: TComboBox;
  30.     SelectBtn: TBitBtn;
  31.     OkBtn: TBitBtn;
  32.     CancelBtn: TBitBtn;
  33.     procedure OkBtnClick(Sender: TObject);
  34.     procedure SelectBtnClick(Sender: TObject);
  35.  
  36.   protected
  37.     Phonebook : TApdPhonebook;
  38.     EditNum   : PString;
  39.  
  40.   public
  41.     constructor Create(const AOwner : TComponent; const PB : TApdPhonebook; var EditSt : String);
  42.   end;
  43.   {.Z-}
  44.  
  45.   {component for selecting or choosing a phone number}
  46.   TApdPhoneNumberSelector = class(TCommonDialog)
  47.   protected {private}
  48.     {.Z+}
  49.     FPhonebook : TApdPhonebook;
  50.     FSelNum    : String;
  51.  
  52.     procedure Notification(AComponent : TComponent; Operation : TOperation); override;
  53.  
  54.   public
  55.     constructor Create(AOwner : TComponent); override;
  56.     {.Z-}
  57.     function Execute : Boolean;
  58.  
  59.     property SelectedNumber : String
  60.       read FSelNum;
  61.  
  62.   published
  63.     property Phonebook : TApdPhonebook
  64.       read FPhonebook write FPhonebook;
  65.   end;
  66.  
  67. const
  68.   {maximum number of entries in phone number history list}
  69.   NumberHistLen = 20;
  70.  
  71. var
  72.   {phone number history list strings}
  73.   NumberHistory : TStringList;
  74.  
  75.